home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / taropyon / hewin / ccisrc / blackout.cci < prev    next >
Text File  |  1993-11-30  |  1KB  |  63 lines
  1. /*************************************************************************
  2. *    "blackout.cci"
  3. *************************************************************************/
  4.  
  5. int        BlackOutUsr_func( int x1, int y1, int x2, int y2)
  6. {
  7.     int        x, y, r, c, col;
  8.     int        xs, ys;
  9.     char    para[8];
  10.  
  11.     xs = x2 - x1 + 1;
  12.     ys = y2 - y1 + 1;
  13.     c = 0;
  14.     while ( 1 )
  15.     {
  16.         if ( ++c > 128 )
  17.         {
  18.             DSP_boxf( x1, y1, x2, y2, PSET, C_MBLACK );
  19.             c = 0;
  20.         }
  21.         if ( (c & 15) == 0 )
  22.         {
  23.             EVT_idl();
  24.             MOS_COFF();
  25.         }
  26.         if ( kbhit() || (KYB_shift() & 0x14) != 0 || MOS_pget(&x,&y) )
  27.             break;
  28.         col = (rand() % 14) + 1;
  29.         x = x1 + (rand() % xs);
  30.         y = y1 + (rand() % ys);
  31.         r = rand() % 320;            /* 半径    */
  32.         EGB_color( EgbPtr,0,col);
  33.         EGB_writeMode( EgbPtr, PSET );
  34.         EGB_paintMode( EgbPtr, 0x002);
  35.         _setWord( para  , x );
  36.         _setWord( para+2, y );
  37.         _setWord( para+4, r );
  38.         EGB_circle( EgbPtr, para );
  39.     }
  40. }
  41.  
  42. /*************************************************************************
  43. *    ブラックアウト設定（デバッグ用）
  44. *-------------------------------------------------------------------------
  45. *    アイテム登録可能（パラメータ必須）
  46. *    パラメータ：    <時間(秒)>    [<関数名>]
  47. *************************************************************************/
  48.  
  49. int        CCI_setBlackOut( int argc, char **argv )
  50. {
  51.     char    *func;
  52.  
  53.     if ( argc > 1 )
  54.     {
  55.         if ( argc > 2 )
  56.             func = argv[2];
  57.         else
  58.             func = "";
  59.         Apl_setBlackOut( 0, atoi(argv[1]) & 0xFFFF, func );
  60.     }
  61.     return (NORMAL);
  62. }
  63.